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FACILITY: EXECUTIVE, EVENT FLAG SERVICES 
ABSTRACT: WAIT CONTAINS THE THREE FORMS OF EVENT FLAG WAIT 


SYSTEM SERVICES WHICH PROVIDE FOR SINGLE EVENT WAIT AS 
WELL AS COMBINATIONS OF MULTIPLE EVENTS. 


AUTHOR : 
R.HUSTVEDT : VERSION 


MODIFIED BY: 


V03-007 SSA0016 Stan a 8-Mar-1984 
Subtract IOTA from Heat ic working set adjustment 
time reference in PHD on any entry to SCHSWAITx code. 
(Acknowledgements go to Wayne Cardoza and Larry Kenah, 

who both collaborated on this change.) 
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V03-006 wMC0001 Wayne Cardoza 22-Feb-1984 
No reason to try to wake up swapper on every EFN wait 
v03-005 SSA0003 Stan Amway 5-Dec-1983 


Added support for outswap scheduling changes. 
Changed process wait code to store wait time in PCB 
as longword system absolute time. 


V03-004 KDM0035 Kathleen D. Morse 14-Dec-1982 
Fix assembly outteh for performance collection for 
kernel mode services executed on secondary processor. 
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V03-003 KDM0034 Kathleen D. Horse 1Sdeq=1988 
Correct logic for secondary cont nying execution of 
a process after a WAITCHK request is done by the primary. 


V03-002 KDM0030 Kathleen D. Morse 18-Nov-1982 
Add IFPRIMARY 99 c that ¢; Lows primary = execute 
secondary-specific code without turning into a secondary. 


v03-001 KOM0018 Kathleen D. Morse 13-0c t-1982 
Add multi-processing switch, which generates these 
system services for the secondary processor. 
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$ 1 
LOGICAL AND OF EVE 8 “SEP=- SYS.SRCIJSYSWAIT.MAR; 1 (1) Vv 
‘ ~SBTTL EXESWFLAND = WAIT FOR LOGICAL AND OF EVENT FLAGS 
; FUNCTIONAL DESCRIPTION: 
pA SurL AN RETURNS TO THE CALLER WHEN THE SET OF EVENT 
ebAGe 3 ELECTED BY THE MASK ARE ALL SET AND RETURNS THE 
STATE OF ALL EVENT FLAGS IN THE SPECIFIED CLUSTER. 
; CALLING SEQUENCE : 
CALLG ARGLIST,EXESWFLAND 


INPUT PARAMETERS: 


I 
FOR 


QO4(AP) = EVENT FLAG NUMBER SELECTING CLUSTER 
Q8(AP) = MASK SELECTING COMBINATION OF EVENTS 
R4 - PCB ADDRESS OF CURRENT PROCESS 


OOCOOCOCOCOCOOCOCOOCOOCOOCOOoO rn 
OOCOCOCOCOOOOOOOOCSCOooOoO Yr 


RO - COMPLET IO N STATUS CODE 
CONDITION IS SATISFIED. 
; SIDE EFFECTS: 
IF THE SET OF EVENT FLAGS SELECTED BY THE MASK ARE NOT 
ALL SET, THEN THE PROCESS ISSUING THE WAIT SERVICE CALL WILL 
BE PLACED IN A WAIT STATE. 


; COMPLETION CODES: 


SS$_NORMAL - NORMAL SUCCESSFUL COMPLETION 
SS$"ILLEFC = ILLEGAL ayeeT oe G CLUSTER NUMBER. EVENT NUMBER 


: OUTPUT PARAMETERS: 
: NOT IN T GE 0-1 
; SS$_UNASEFC = UNASSIGNED EVENT FLAG CLUSTER. 
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EXESWFLAND: : :WAIT FOR LOGICAL AND 
003¢ .WORD “M<R2,R3,R4,R5> SREGISTER SAVE MASK FOR R2-R5 
51 01 DO MOVL #1,R1 'SET MODE TO WAITALL 
04 «11 BRB WFRL [AND MERGE WITH COMMON CODE 
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.SBTTL EXESWFLOR = WAIT FOR LOGICAL OR OF EVENTS 
; FUNCTIONAL DESCRIPTION: 
EXESWFLOR RETURNS TO THE CALL 


EVENTS SELECTED BY THE MASK W 
ARE SET AND RETURNS THE STATE 
CLUSTER. 
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CALLING SEQUENCE: 
CALLG ARGLIST,EXESWFLOR 
INPUT PARAMETERS: 
tiny - EVENT FLAG _N 
8(AP) = MASK SELECTI 
R4 = PCB ADDRESS OF C 
OUTPUT PARAMETERS: 


RO = COMPLET 
IS SATI 


COMPLETION CODES: 
SS$_NORMAL = NORMAL SUCCESSFUL COMPLETION 
SS$_ILLEFC = ILLEGAL EVENT FLAG NUMBER NOT IN THE RANGE 0-127. 
SS$_UNASEFC = UNASSIGNED EVENT FLAG CLUSTER. 


SIDE EFFECTS: 
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THE PROCESS ISSUING THE SERVICE CALL IS BE PLACED IN A 
WAIT STATE IF NONE OF THE SPECIFIED EVENTS ARE SET. 
EXESWFLOR: : WAIT FOR LOGICAL OR 
-WORD “M<R2,R3,R4,R5> sREGISTER SAVE MASK FOR R2-R5 
CLRL R1 ;SET MODE TO WAIT ANY 
WFRL: MOVL MASK (AP) ,RO GET WAIT MASK 
BRB EXESWAIT ;MERGE WITH COMMON CODE 
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i ~SBTTL EXESWAITFR = WAIT FOR SINGLE EVENT 
; FUNCTIONAL DESCRIPTION: 

ExeeuAy tee ve Tunes "Tear geben gee 
Ne ius ti CONTAINING. THE SPEC 
; CALLING SEQUENCE : 
ARGLIST ,EXESWAITFR 
INPUT PARAMETERS: 


+ peal ts iy FLAG NUMBER 
- PCB ADDRESS OF CURRENT PROCESS 


; ; OUTPUT PARAMETERS: 
RO - cOmtie ims STATUS CODE 


ze 


mn 


; ; SIDE EFFECTS: 


VENT FLAG IS NOT SET 


THE PROCESS ISSUING THE 
— WILL BE PLACED IN TH 


E APPROPRIATE WAIT 


; ; COMPLETION CODES: 
SSS$_NORMAL - acc SUCCESSFUL COMPLETION 

LAG NUMBER NOT IN THE RANGE 0-127. 
VENT FLAG CLUSTER. 


EXESWAITFR:: eat Ay sine Le. 
. WORD 


“M<R2,R3,R4,R5> 


INIT 
7 AND MERGE WITH COMMON CODE 
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COMMON CODE SEP= SYS.SRCISYSWAIT.MAR; 1 a) 
= .SBTTL EXESWAIT - WAIT COMMON CODE 
: FUNCTIONAL DESCRIPTION: 


THIS IS THE COMMON WAIT CODE FOR ALL THE EVENT FLAG WAIT 
SYSTEM SERVICES. 


INPUT PARAMETERS: 


O4(AP) = EVENT A+ 


G 
RO = MASK SELECTI : 


ER 
ENTS OF INTEREST 
Ri = ANY/ALL MODE SELECTOR 
=> ANY 


=> ALL 
R4 = PCB ADDRESS OF CURRENT PROCESS 
IMPLICIT INPUTS: 
CEB IF NON-LOCAL CLUSTER. 


T 
T 
A 28 
. . 
; ‘ 
A is 
A 358 
A 0 
A 1 
A 338 
A ra 
A 5 
A 
A 
A 340 
A 341 
3 A 46 OUTPUT PARAMETERS: 
O1A 344 RO = COMPLETION STATUS CODE 
001A 43 SATISIFIED. 
aha 
O1A =. 355 
O1A 357 EXESWAIT: ;WAIT COMMON CODE 
52 04 AC 98 001A 61 CVTBL EFNCAP),R2 :GET CLUSTER NUMBER 
1A 19 «(001 6¢ BLSS. 108 SILLEGAL IF NOT (0,1,2,3) 
52 52 fB8F 78 00 6 & ASHL #=5,R2,R2 SRIGHT ALIGN CLUSTER ER 
53 50 A442. «O«DE.sC#O 64 MOVAL PCB$L_EFCS(R4)CR2],R3  :POINTER TO PCB EVENT CLUSTER 
2 Ad 90 A 365 MOVB R2,PCB$B_WEFC(R4) :SAVE WAIT CLUSTER 
15 F : 66 SOBGTR R :BR IF COMMON CLUSTER R2 = (2,3) 
52 00000000' GF re j 6 MOVAG G*SCHSGO_LEFWO.R2 :SET WAIT QUEUE POINTER 
50 OOEC &F 3¢ 0 A $9 10$: MOVZWL #SS$_ILLEFC,RO iSET ERROR CODE FOR ILLEGAL CLUSTER 
50 0234 8F 3¢ B20 20S: MOVZWL #SS$_UNASEFC,RO iSET ERROR CODE FOR UNASSIGNED 
52 63 10 Ci 0046 373 30S:  ADDL3 #CEBSL_EFC,(R3).R2 [GET CEB ADDRESS FOR EVENT FLAGS 
: F4 18 Bee 74 BGEQ ew “CEB ASSIGNED (SYSTEM SPACE ADDRESS) 
FA A2 20 9 4 75 CMPB =: #DYNSC_SLAVCEB,<CEBSB_TYPE-CEBSL_EFC>(R2) ;I1S THIS IN SH MEM? 
1 3 id: BNEQ 408 -BR IF IR LOCAL MEMORY 
5330 Ng D 7 MOVL  <CEBSL MASTER-CEBSL_EFC>(RZ) -R3 “GET ADR OF MASTER CEB 
62 10a3 OD 5 8 MOVL cEBSL EFC(R3), (Re) -COPY EFC FROM MASTER TO SLAVE CEB 
53 82 OE 3A 43 40$ nova ti tert eae os CEBSL_WOFL EVENT POINTER AND WAIT QUEUE ADDR 
5 1 . ‘ ; R3=CEBSL_EFC, R2=CEBSL_WOFL 
D : : RO - MASK SELECTING EVENTS OF INTEREST 
D 4: Ri = ANY/ALL MODE SELECTOR 
D 5; R2 = ADDRESS OF WAIT QUEUE HEADER 
D $ ; R3 = ADDRESS OF EVENT FLAG VECTOR 
if ; R4 = PCB ADDRESS 
D § WAITCK: :CHECK FOR WAIT SATISFIED 
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~SBTTL SCHSWAIT - PLACE PROCESS IN SELECTED WAIT QUEUE 
; FUNCTIONAL DESCRIPTION: 


m 
um 
on 


SCHSWAIT PLACES THE CURRENT PROCESS IN A WAIT QUEUE 
SELECTED BY A WAIT QUEUE HEADER ADDRESS SUPPLIED IN A REGISTER 
A NEW PROCESS IS THEN SELECTED FOR EXECUTION. 


3 CALLING SEQUENCE: 
JMP/BR SCHSWAIT 
INPUT PARAMETERS: 

EXESC_CMSTKSZ+00(SP) = PC AT WHICH TO RESTART PROCESS AFTER EF WAIT 
4(SP) = PSL WITH WHICH TO RESTART PROCESS 


$2+0 
EXESC_CMSTKSZ+0 
; ¢ IMPLICIT INPUTS: 
NONE 


; SIDE EFFECTS: 


COOQCCOCOCSOGSOOCOCSOOGOOOOOOOOOCOOSoOo 


‘G2 Gd CD Cd Cd Cd Cd OD OD CD CD GD Cd C9 C9 C9. 0D G9 GD CD CD CD CD CD CD CD CD CD 


WD BF MMAOA BNO NWI 009 INI NIIID FEOD OO OA PIPPIN IPIPIPIPIPIPIPIPIPUPIPUPIPIPIPIPIPIPIPIPIPIPIPIPIPIPIFIPD 


SOOOGOOCSOOSOOOOOOOOOOOOOOOSOOSOOOSOOSOOOOOOO OOOO OOOOOOOOOOOOOOOO 
OOGOOoooooooocooooo 


4 
4 THE PROCESS SPECIFIED BY THE PCB ADDRESS IN R4 IS PLACED 
4 IN THE WAIT QUEUE LOCATED BY R2, ITS CONTEXT SAVED, 
644; AND A NEW PROCESS SCHEDULED. 
2 bos 
; $35 SCHSWAIT:: ;PLACE PROCESS IN WAIT STATE 
5D OC AE DO 661 MOVL 12(SP),FP SRESTOR 
5E 00° C9 66¢ ADDL2 S*#EXESC_CMSTKSZ,SP [CLEAN uP KERNEL STACK 
6 4204 «CC 66 SUBL2 #4, (SP) ‘BACK UP SAVED PC 
664 SCHSWAITK: : WAIT UITH STACK ALREADY CLEAN 
08 A2 86 6 : INC WOHSW_WOCNT(R2) i INCREMENT COUNT FOR QUEUE 
62 : 67 INSQUE (R4),QQHSL_WOFL(R2) > INSERT IN QUEU 
2c AG) «(COA 2B ; 676 MOVW WOQHSW_WQSTATE(R2) ,PCBSW_STATE(R4) ;SET STATE FOR PROCESS 
97 674: THE STATE NUMBER IS CONTAINED 
3 673 : IN THE QUEUE HEADER 
9 ere SCHSWAITL:: ;WAIT WITH STATE SET STACK CLEANED 
07 009 7 SVPCTX TSAVE PROCESS CON 
9 SCHSWAITM: : ENTRY FOR MEMORY TRANAGERENT WAIT CODE 
55 6C A&G pO 009 PCBSL_PHD(R4) .R5 GET PROCESS HEADER ADD DRESS | 
50  00000000'GF C 9 6 MOVZWL G*SCHSGW_IOTA,RO Get ngword copy 
CA 0 A AS 684 W R » PHD$W_ QUANT (RS) i CHARGE rt OTA FOR WB Gur ARY Malt 
01 Be oe C A? = 685 SUBL2 ;PHDSL- TIRR EF (RS) theth 
0118 C4 09000 900 "GF p A ‘ 6 MOVL ere “ABSTIM PCBSL_ unit thape SA ECORD TIME AT WAIT START 
FC 4 91 CMPB #4 PROSE ASTLVL (RS) ASTLVL? 
3 \2 8 BNEQ 20$ NOS ‘OL ONG CHECK 
FFI" 10$: BRW W*SCHSSCHED 60 SCHEDULE NEXT PROCESS 
CF CS) OA ; 20$: MOVZBL PHD$B_ASTLVL(RS),RO -FETCH AND ZERO EXTEND PENDING ASTLVL 
50 00c4 28 89 i ED C 98 CMPZV WPseay. CURMOD ,APSL$S -CURMOD ,BHDSL PSL (RS) , RO ;COMPARE WITH WAIT 
19 00¢ $30 BLSS 108 ‘BRANCH IF AST NOT DELIVERABLE 
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SCHSWATT = PLACE PROCESS IN SELECTED WAI §-§ eats 7 84: 38:3! SYS.SRCISYSWAIT.MAR;1 . (1) 
8 ie 
CD : Test for assumptions that are being made about the layout of the 
14 2 : PSL that enables the next instruction to work correctly. 
CD ; o IPL field begins on a byte boundar 
14 ; ft) Ipt field ties into 5) single byte 4 
CD 
CD 1 ASSUME <<<PSL$V pe - PSLSV_IPL> EQ 0 ; IPL must be byte aligned 
cb ASSUME PSL$S_IPC LE ; IPL field must fit into byte 
1F 693 Cd ar BITB #<PSLS$M_IPL@-PSL$V_IPL>,- 
00C6 C5 ace 714 <PSLSV_TPL/ >+PHDSC_PSL (RS) ;MUST BE AT IPL O FOR DELIVERY 
s WZ D2 715 BNEQ 10$ ;BRANCH IF AST NOT DELIVERABLE 
2 D4 0D4 71 CLRL R2 3SET NULL PRIORITY INCREMENT 
0D6 71 RPTEVT AST ;REPORT AST EVEN 
EO 11 gpa 734 BRB 10$ 3GO SCHEDULE NEXT PROCESS 
Sob 725 END 
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Psect synopsis wise 1%, 
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PSECT name Allocation PSECT No. Attributes 
S HA 888888 ( on 0 ¢ ) NOPIC USR CON ABS LCL oo NOEXE NORD NOWRT NOVEC BYTE 
$ 0000000 ( » O1 ¢ -) NOPIC USR CON ABS LCL NOSHR EXE’ RD WRT NOVEC BYTE 
AEXENONPAGED 000000DC ¢« 22 2¢( 2.) NOPIC USR CON REL LCL NOSHR EXE’ RD WRT NOVEC BYTE 


Phase Page faults CPU Time Elapsed Time 
pbb hee bp tbe ell 135 00:00:00. 66 0:00;08:15 
ommand processin :00:00. :00:02. 
Pass 1 4 . 333 § 8: 0:3 tte .00 
Symbol table sort 0 Bp BR 1.6 Ft 
Pass 2 79 0:00: §-h8 0: B06 +03 
Symbol table output 7 00:00: 89 0:00:0 49 
Psect synopsis output 3 00:00:00. 3 00:00:00.0 
Cross-reference output 00:00:00.0 00:00:00.00 
Assembler run totals 594 00:00:14.88 00:00:18.76 


e,yorking set Limit was 1500 pages 

asta bytes (129 pages) of virtua memory were used to buffer the intermediate code. 

There were 60 pages of symbol table space allocated to hold 1087 non-local and 6 local symbols. 
725 source lines were read in Pass 1, producing 13 object records in Pass 2. 

22 pages of virtual memory were used to define 21 macros. 


Macro Library name Macros defined 
Siiitttns § SYS.OBJILI sat 1 11 
“$255$DUA28:(SYSLIBJSTA -MLB;2 7 

TOTALS (all ees re hg 18 


1192 GETS were required to define 18 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:SYSWAIT/OBJ=OBJ$:SYSWAIT MSRC$:SYSWAIT/UPDATE=(ENH$:SYSWAIT) +EXECML$/LIB 
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